home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / gadgets.e < prev    next >
Text File  |  1995-12-22  |  2KB  |  72 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'gadtools','libraries/gadtools'
  5. MODULE    'intuition/intuition','intuition/gadgetclass'
  6. MODULE    'graphics/gfx','graphics/rastport'
  7. MODULE    'utility/tagitem'
  8.  
  9. MODULE    'mod/macros'
  10.  
  11. PROC createslider(gad,x,y,w,h,id,min,max,level,vis,orient)
  12.     gad:=CreateGadgetA(SLIDER_KIND,gad,
  13.     [x,y,w,h,0,0,id,0,vis,0]:newgadget,
  14.         [GTSL_MIN,min,GTSL_MAX,max,GTSL_LEVEL,level,
  15.             PGA_FREEDOM,orient,
  16.             NWAY_KIND,TRUE,GTVI_NWTAGS,TRUE,NIL,NIL])
  17. ENDPROC gad,gad
  18.  
  19. PROC createscroller(gad,x,y,w,h,id,total,top,visible,vis,orient,arrows)
  20.     gad:=CreateGadgetA(SCROLLER_KIND,gad,
  21.     [x,y,w,h,0,0,id,0,vis,0]:newgadget,
  22.         [GTSC_TOTAL,total,GTSC_TOP,top,GTSC_VISIBLE,visible,
  23.             PGA_FREEDOM,orient,IF (arrows>0) THEN GTSC_ARROWS ELSE TAG_IGNORE,arrows,
  24.             NWAY_KIND,TRUE,GTVI_NWTAGS,TRUE,NIL,NIL])
  25. ENDPROC gad,gad
  26.  
  27. PROC createbool(gad,x,y,w,h,id,string,textattr,vis)
  28.     gad:=CreateGadgetA(BUTTON_KIND,gad,
  29.     [x,y,w,h,string,textattr,id,0,vis,0]:newgadget,[NIL,NIL])
  30. ENDPROC gad,gad
  31.  
  32. PROC drawbevelbox(vis,rast:PTR TO rastport,x,y,w,h,ft=0,rec=0,pencol=-1)
  33.     DEF olddm,oldafpt,oldafptsz
  34.     DEF inw,inh
  35.     IF rast=0 THEN RETURN
  36.     olddm:=GetDrMd(rast)
  37.     oldafpt:=rast.areaptrn
  38.     oldafptsz:=rast.areaptsz
  39.     IF ft=4 THEN ft:=0
  40.     IF pencol>=0
  41.         SELECT ft
  42.         CASE 1;inw:=2;inh:=1
  43.         CASE 2;inw:=4;inh:=2
  44.         CASE 3;inw:=6;inh:=3
  45.         DEFAULT;inw:=1;inh:=1
  46.         ENDSELECT
  47.         SetAPen(rast,pencol)
  48.         IF (((w-inw-inw)>0) AND ((h-inh-inh)>0)) THEN RectFill(rast,x+inw,y+inh,x+w-1-inw,y+h-1-inh)
  49.     ENDIF
  50.     SetDrMd(rast,RP_JAM2)
  51.     IF rec=0
  52.         DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
  53.                 GTBB_FRAMETYPE,ft,NIL,NIL])
  54.     ELSE
  55.         DrawBevelBoxA(rast,x,y,w,h,[GT_VISUALINFO,vis,
  56.                 GTBB_RECESSED,rec,GTBB_FRAMETYPE,ft,NIL,NIL])
  57.     ENDIF
  58.     SetDrMd(rast,olddm)
  59.     setafpt(rast,oldafpt,oldafptsz)
  60. ENDPROC
  61.  
  62. PROC bottomedge(win:PTR TO window) IS (win.height-win.borderbottom)
  63. PROC rightedge(win:PTR TO window) IS (win.width-win.borderright)
  64. PROC insidewidth(win:PTR TO window) IS (win.width-win.borderleft-win.borderright)
  65. PROC insideheight(win:PTR TO window) IS (win.height-win.bordertop-win.borderbottom)
  66.  
  67. PROC disablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,TRUE,NIL,NIL]);ENDPROC
  68. PROC enablegadget(x,win);IF ((x) AND (win)) THEN Gt_SetGadgetAttrsA(x,win,NIL,[GA_DISABLED,FALSE,NIL,NIL]);ENDPROC
  69.  
  70. PROC extractmessage(mes:PTR TO intuimessage);RETURN mes.class,mes.iaddress,mes.code;ENDPROC
  71. PROC windowtotals(w:PTR TO window) IS w.borderright+w.borderleft,w.borderbottom+w.bordertop
  72.